﻿'*******************************************************************************************
'* Copyright Brügmann Software GmbH, Papenburg
'* Author: Björn Kremer
'* Contact: codeplex<at>patorg.de
'* 
'* VB.CMIS is a VB.NET implementation of the Content Management Interoperability Services (CMIS) standard
'*
'* This file is part of VB.CMIS.
'* 
'* VB.CMIS is free software: you can redistribute it and/or modify
'* it under the terms of the GNU Lesser General Public License as published by
'* the Free Software Foundation, either version 3 of the License, or
'* (at your option) any later version.
'* 
'* VB.CMIS is distributed in the hope that it will be useful,
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'* GNU Lesser General Public License for more details.
'* 
'* You should have received a copy of the GNU Lesser General Public License
'* along with VB.CMIS. If not, see <http://www.gnu.org/licenses/>.
'*******************************************************************************************
Imports System.Xml.Serialization
Namespace BaseTypes
   Public MustInherit Class BaseDefinition
      Implements IBaseDefinition

      Public Property Id() As String Implements IBaseDefinition.Id

      Public Property LocalName() As String Implements IBaseDefinition.LocalName

      Public Property LocalNamespace() As String Implements IBaseDefinition.LocalNamespace

      Public Property DisplayName() As String Implements IBaseDefinition.DisplayName

      Public Property QueryName() As String Implements IBaseDefinition.QueryName

      Public Property Description() As String Implements IBaseDefinition.Description

      Public Property Queryable() As Boolean Implements IBaseDefinition.Queryable

      Public Sub New(id As String, localName As String, displayName As String, queryName As String)
         Me.Id = id
         Me.LocalName = localName
         Me.QueryName = QueryName
         Me.DisplayName = displayName
      End Sub
      Public Sub New()

      End Sub



   End Class
End Namespace